home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / GfxCentre.asc < prev    next >
Text File  |  1980-03-04  |  705b  |  33 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-96    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Amos Rastport
  13. '  -Wb Gfx Centre
  14. '
  15. A=Amos Rastport
  16. R=6
  17. While Mouse Key=0
  18.    A$="" : Ink 2
  19.    For T=0 To 30
  20.       A$=A$+"O"
  21.       Add R,6
  22.       Wb Gfx Centre A$,160,R To A
  23.       Wait 2
  24.    Next T
  25.    A$="" : Ink 3
  26.    For T=30 To 0 Step -1
  27.       A$=A$+"O"
  28.       Add R,-6
  29.       Wb Gfx Centre A$,160,R To A
  30.       Wait 2
  31.    Next T
  32. Wend 
  33.